10 GOTO50
20 GETXY$:IFXY$<>" "ANDXY$<>"E"THENRETURN
30 IFXY$="E"THEN370
40 POKE198,0:WAIT198,1:POKE198,0:RETURN
50 POKE53280,8:POKE53281,8:F$="":INPUT"[147]FILENAME ";F$:IFF$=""THENEND
60 L1$="":PRINT"LAUFWERK  MIT "F$"[146] ";:INPUTL1$:IFL1$=""THENEND
70 L1=VAL(L1$):IFL1<8ORL1>9THENPRINT"[145][145][145]":GOTO60
80 F$=F$+"*":PA$="":INPUT"P[146]ROGRAMM ODER S[146]EQUENZ ";PA$:IFPA$=""THENEND
90 IFPA$<>"P"ANDPA$<>"S"THEN80
100 IFPA$="S"THEN130
110 PRINT"NOTER-FILE ?"
120 GETNF$:IFNF$<>"J"ANDNF$<>"N"THEN120
130 PRINT"[147]  PAUSE MIT SPACE! / ABBRUCH MIT 'E' ! ":PRINT"";
140 OPEN2,L1,2,F$+","+PA$+",R"
150 IFNF$="N"THENPA$="A"
160 IFPA$="P"ORPA$="A"THENGET#2,A$:GET#2,A$
170 GET#2,A$:IFA$=""THENA$="@"
180 AA=ASC(A$)
190 IFPA$="A"THENIFAA<>13THENIFAA<32THEN170
200 IFPA$="P"THENIFAA>0THENIFAA<32THENAA=AA+64
210 IFAA>96THENIFAA<129THENAA=AA-32
220 IFAA>128THENIFAA<193THENAA=AA-64
230 IFAA>192THENIFAA<256THENAA=AA-128
240 REM                                  ---   NUR FUER TD-MAG-TEXTE!!     ---
250 IFAA=95THENAA=96
260 REM                                  ---   NORMALE PROGRAMMZEILE!!     ---
270 A$=CHR$(AA)
280 REM                                  ---   NUR FUER TD-MAG-TEXTE!!     ---
290 IFAA=91THENPA=1:A$="OE"
300 IFAA=92THENPA=1:A$="SS"
310 IFAA=93THENPA=1:A$="AE"
320 IFAA=94THENPA=1:A$="UE"
330 IFPA=1THENIFAA=32THENPA=0:GOSUB20:GOTO360
340 REM                                  ---   AB HIER WIEDER NORMAL!!     ---
350 PRINTA$;:GOSUB20
360 IFST<>64THEN170
370 CLOSE2:PRINT:PRINTCHR$(14)"...DAS WAR'S...":PRINT"   [212]IGERCREW ":END